home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / swanson / frmpics.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-01-06  |  2.0 KB  |  70 lines
  1. VERSION 2.00
  2. Begin Form frmPictures 
  3.    AutoRedraw      =   -1  'True
  4.    Caption         =   "Picture Controls"
  5.    ClientHeight    =   3810
  6.    ClientLeft      =   4065
  7.    ClientTop       =   2370
  8.    ClientWidth     =   4560
  9.    Height          =   4215
  10.    Left            =   4005
  11.    LinkTopic       =   "Form4"
  12.    ScaleHeight     =   254
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   304
  15.    Top             =   2025
  16.    Width           =   4680
  17.    Begin PictureBox Picture1 
  18.       AutoRedraw      =   -1  'True
  19.       AutoSize        =   -1  'True
  20.       Height          =   2280
  21.       Index           =   0
  22.       Left            =   630
  23.       Picture         =   FRMPICS.FRX:0000
  24.       ScaleHeight     =   2250
  25.       ScaleWidth      =   3000
  26.       TabIndex        =   0
  27.       Top             =   570
  28.       Width           =   3030
  29.    End
  30.    Begin Image Image1 
  31.       Height          =   2250
  32.       Index           =   0
  33.       Left            =   120
  34.       Picture         =   FRMPICS.FRX:3B12
  35.       Top             =   120
  36.       Width           =   3000
  37.    End
  38. Sub Image1_Click (Index As Integer)
  39.   On Error Resume Next
  40.   Dim i As Integer, j As Integer
  41.     i = 1
  42.     Do
  43.         Load Image1(i)
  44.         Image1(i).Move Image1(i - 1).Left + 4, Image1(i - 1).Top + 4
  45.         Image1(i).Visible = True
  46.         i = i + 1
  47.     Loop Until Err
  48.     For j = i To 1 Step -1
  49.         Unload Image1(i)
  50.     Next j
  51.     MsgBox i & " Pictures", 64, "Image Control"
  52.     frmPictures.Refresh
  53. End Sub
  54. Sub Picture1_Click (Index As Integer)
  55. On Error Resume Next
  56. Dim i As Integer, j As Integer
  57.     i = 1
  58.     Do
  59.         Load Picture1(i)
  60.         Picture1(i).Move Picture1(i - 1).Left + 4, Picture1(i - 1).Top + 4
  61.         Picture1(i).Visible = True
  62.         i = i + 1
  63.     Loop Until Err
  64.     For j = i To 1 Step -1
  65.         Unload Picture1(i)
  66.     Next j
  67.     MsgBox i & " Pictures", 64, "Picture Control"
  68.     frmPictures.Refresh
  69. End Sub
  70.